home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / comm / misc / fserv139c_pl2.lha / FServ / Install-FServ < prev    next >
Encoding:
Text File  |  1994-10-25  |  3.9 KB  |  148 lines
  1.  
  2. ; script to Install FServ
  3. ; Should be run from WorkBench by double-clicking on the icon
  4.  
  5. (set version2 36)
  6.  
  7. (complete 0)
  8.  
  9. (set @default-dest "DH0:")
  10.  
  11. (set answer1
  12.         (askchoice
  13.                 (prompt "Wo soll FServ installiert werden?")
  14.                 (choices "Hard Disk" "Floppy Disk")
  15.          (help "Wenn Du Hard Disk auswählst, wird FServ auf die Festplatte "
  16.             "installiert.  Du wirst nach einem Verzeichniss gefragt, wo da "
  17.             "Packet installiert werden soll. Vorgabe ist DH0:. Ein Verzeichniss "
  18.             "mit dem Namen `FServ` wird dort erzeugt. \n\n"
  19.             "Im Verzeichniss `Turbo30` befindet sich eine 68030er-Version der "
  20.             "Software, die von Hand nachinstalliert werden muss.\n"
  21.          )
  22.                 (default 0)
  23.         )
  24. )
  25.  
  26. (if (= answer1 0)
  27.   (
  28.      (set dest2 (askdir  (prompt "Bitte das Zielverzeichniss für FServ Verzeichniss wählen")
  29.                           (default @default-dest)
  30.                           (help "Wähle eine Partition oder ein Verzeichniss in "
  31.                                 "das FServ installiert werden soll. Dieses Programm "
  32.                 "wird ein Verzeichniss mit dem Namen `FServ` dort "
  33.                 "erzeugen und die File dorthin kopieren."
  34.                           )
  35.                 )
  36.      )
  37.      (set dest1 (tackon dest2 "FServ"))
  38.      (set dest3 (tackon dest1 "Help"))
  39.      (set @default-dest dest1)
  40.      (message "\n\nErzeuge das Verzeichniss in " 
  41.                dest1
  42.      )
  43.       
  44.      (makedir dest2 (safe) (infos))
  45.      (makedir dest1 (safe) (infos))
  46.      (makedir ("%s/Help" dest1) (safe))
  47.      (makedir ("%s/Programme" dest1) (safe))
  48.      
  49.      (set parts
  50.           (askoptions 
  51.              (prompt "Was soll installiert werden?")
  52.              (choices "FServ"
  53.                      "FSManager"
  54.                      "FSConfig"
  55.                      "On-Line Hilfe"
  56.              "Hilfsdateien"
  57.              )
  58.              (help "Du musst nicht das komplette Packet installieren. "
  59.            "FSManager ist das Programm zum komfortablen verwalten "
  60.            "der Programme auf dem Server, FSConfig ist das Konfigurations "
  61.            "Programm, FServ ist der FileServer selber. Die Hilfsdateien "
  62.            "werden von FServ bei Anforderung der Hilfe gesendet.\n\n"
  63.              )
  64.           )
  65.       )
  66. )
  67. )                     
  68.  
  69. (complete 10)
  70.       (if (IN parts 1)
  71.         (
  72.           (set error (trap 4
  73.              (copyfiles
  74.                 (source "FServ")
  75.                     (dest dest1)
  76.                     (all)
  77.              )
  78.           ))
  79.           (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  80.       )
  81. )
  82.  
  83. (complete 25)
  84.       (if (IN parts 0)
  85.         (
  86.           (set error (trap 4
  87.              (copyfiles
  88.                 (source "Help")
  89.                     (dest dest3)
  90.                     (all)
  91.              )
  92.           ))
  93.           (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  94.       )
  95. )
  96.  
  97. (complete 70)
  98.       (if (IN parts 2)
  99.         (
  100.           (set error (trap 4
  101.              (copyfiles
  102.                 (source "FSManager")
  103.                     (dest dest1)
  104.                     (all)
  105.              )
  106.           ))
  107.           (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  108.       )
  109. )
  110.  
  111. (complete 85)
  112.       (if (IN parts 3)
  113.         (
  114.           (set error (trap 4
  115.              (copyfiles
  116.                 (source "FSConfig")
  117.                     (dest dest1)
  118.                     (all)
  119.              )
  120.           ))
  121.           (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  122.       )
  123. )
  124.  
  125. (complete 100)
  126.       (if (IN parts 4)
  127.         (
  128.           (set error (trap 4
  129.              (copyfiles
  130.                 (source "Dok")
  131.                     (dest dest1)
  132.                     (all)
  133.              )
  134.           ))
  135.           (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  136.       )
  137. )
  138.  
  139.  
  140. (if (= answer1 1)
  141.   (
  142.                 (message "\n\nEine Installation auf Disketten ist leider "
  143.                  "zur Zeit noch nicht vorgesehen und macht "
  144.              "auch wenig Sinn!"
  145.                 )
  146.   )
  147. )
  148.